﻿Public Class EmkBeyanFormu
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Emekli beyan formu kaydı", "Emekli bilgisini girin.")
				AddField("@Kimlik", "nl", "", "Kimlik numarasını girmek zorundasınız.")
				StartBody()
				AddDataWindow()
			Case EventType.Shown
				DataWindow.AddGroup("Genel bilgiler", "hturu*;kararno*;kimlik*;adi*;soyadi*")
				DataWindow.AddGroup("Hesap bilgileri", "odeyerkod;bankahno;bhesnotar*")
				DataWindow.AddGroup("İletişim bilgileri", "adr;adrsemt;adrsehir")
				DataWindow.AddGroup("Kayıt bilgileri", "islemtar*;kaykul*;rowid*")
			Case EventType.ValidateForm
				Rs = Emeklilik.KimlikAra(Remote, Input("Kimlik"))
				If Check("Kimlik", Rs.EOF, "Kimlik bulunamadı") Then Exit Sub
				If Rs.Rows.Count > 1 Then
					Dim Dialog As New EmeklilikKisiBilgileriSec
					Dialog.AddArgument("rs", Rs)
					Dialog.Run(Window)
					If Dialog.Result = "" Then Exit Sub
					Dim Items = Split(Dialog.Result, "|")
					Rs = Emeklilik.MaasBilgisi(Remote, Items(0), Items(1), Items(2))
				End If
				DataWindow.Recordset = Rs
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
				If Not Confirm("Kaydetmek istediğinizden emin misiniz?") Then Return
				DataWindow.Save()
				Rs("bhesnotar") = Remote.SysDate
				Rs("islemtar") = Remote.SysDate
				Rs.Save()
				Info("Bilgiler kaydedilmiştir.")
				Reset()
		End Select
	End Sub


End Class
